home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ ShellIcon Cleanup 1.xpl < prev    next >
Text File  |  2002-04-12  |  2KB  |  54 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Interface\Icons"
  5. "NAME"="Reset Icon Customizations"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.32"
  8. "TEXT 1"="Reset ALL shell icon customizations"
  9. "TEXT 2"="Clean up unnecessary shell icon entries"
  10. "DESCRIPTION 1"="If you have changed any shelled Windows icons, and made a mess of things, you can use this plug-in to remove all changes."
  11. "DESCRIPTION 2"="Please be aware that ALL shell icon changes will be lost when you click on the button!"
  12. "DESCRIPTION 3"="Alternatively, you can click on the second button to only remove unnecessary entries - this won't change any customized icons but will get rid of references to 'uncustomized' icons."
  13. "DESCRIPTION 4"="NOTE: Some settings may not take effect until you restart the computer."
  14. "COMMENT 1"=""
  15. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "CONTACTURL"="http://www.xteq.com/"
  18.  
  19. sP="HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons\"
  20.  
  21. SUB Plugin_Initialize
  22. END SUB
  23.  
  24. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  25.  h=0
  26.  w=GetWinSysDir
  27.  if ElementIndex=1 then
  28.   iCount=RegEnumValues(sP)
  29.   For l=1 to iCount
  30.    s=RegEnumElement(l)
  31.    v=RegReadValue(sP & s)
  32.    If IsEmpty(v)=false then
  33.     Call RegDeleteValue(sP & S)
  34.     h=h+1
  35.    end if
  36.   Next 
  37.   Call MsgInformation("X-Setup has removed " & h & " shell icon customizations.")
  38.  else
  39.   iCount=RegEnumValues(sP)
  40.   For l=1 to iCount
  41.    s=RegEnumElement(l)
  42.    v=RegReadValue(sP & s)
  43.    If v=w & "shell32.dll," & s then
  44.     Call RegDeleteValue(sP & S)
  45.     h=h + 1
  46.    end if
  47.   Next 
  48.   Call MsgInformation("X-Setup has removed " & h & " shell icon customizations.")
  49.  end if
  50. END SUB
  51.  
  52. SUB Plugin_Terminate
  53. END SUB
  54.